Imports System.Data.SqlClient
Imports System.Xml
Public Class dTipoUsuario
    Public Function Listar(ByVal TipoUsuario As Integer, ByVal Descripcion As String) As DataSet
        Dim parametros As ArrayList = New ArrayList
        If TipoUsuario > 0 Then
            parametros.Add(New SqlParameter("@pEIdTipoUsuario", TipoUsuario))
        End If

        If Descripcion <> "" Then
            parametros.Add(New SqlParameter("@pEDescripcion", Descripcion))
        End If
        Return CapaDeDatos.dConexion.Consultar("STORE_TblTipoUsuarioBuscaFiltrado", parametros)
    End Function
    Public Function ExisteGrupo(ByVal Descripcion As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pEDescripcion", Descripcion))
        Return dConexion.Consultar("STORE_TblTipoUsuarioBuscaFiltrado", Parametros).Tables(0).Rows.Count <> 0
    End Function
    Public Function InsertarTipoUsuario(ByVal Descripcion As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pEDescripcion", Descripcion))
        Return CapaDeDatos.dConexion.ABM("STORE_TblTipoUsuarioAlta", Parametros)
    End Function
    Public Function EliminarTipoUsuario(ByVal TipoUsuario As Integer) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pEidTipoUsuario", TipoUsuario))
        Return CapaDeDatos.dConexion.ABM("STORE_TblTipoUsuarioEliminar", Parametros)
    End Function
    Public Function ModificarTipoUsuario(ByVal TipoUsuario As Integer, ByVal Descripcion As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pEIdTipoUsuario", TipoUsuario))
        Parametros.Add(New SqlParameter("@pEDescripcion", Descripcion))
        Return CapaDeDatos.dConexion.ABM("STORE_TblTipoUsuarioModificar", Parametros)
    End Function
End Class
